home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / tpu2tps.arc / TEST.PAS < prev    next >
Pascal/Delphi Source File  |  1991-07-23  |  464b  |  24 lines
  1. {$r-,s-}      { Range and stack checking don't work!!! }
  2. {$n-,e-}      { There's no floating point support at all! }
  3.  
  4. program test;
  5.  
  6. const
  7.   msg : array[1..45] of char = 'This program has almost no run-time library!$';
  8.  
  9. procedure printstring;
  10. begin
  11.   { We can't use any of the system routines; we have to do our
  12.     printing using DOS services }
  13.  
  14.   asm
  15.     mov dx,offset msg
  16.     mov ah,09
  17.     int $21
  18.   end;
  19. end;
  20.  
  21. begin
  22.   printstring;
  23. end.
  24.